home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Game / KQ / bartele.cs < prev    next >
Encoding:
Text File  |  1998-12-15  |  624 b   |  23 lines
  1. #
  2. #    This file is called if a player teleports from the Barren World.
  3. # The $1 argument contains the name of the .KQ file to be loaded in the new
  4. # world minus the KQ extension.
  5. #
  6.  
  7. echo We made it through Alan's code!
  8. echo and he sent us $1
  9.  
  10. # Make sure only one ever exists!
  11. if test $Barren::Teleport::Name != 0
  12.     echo Delete $Barren::Teleport::Name
  13.     deleteObject $Barren::Teleport::Name
  14. endif
  15.  
  16. # Load the portal at the correct location for this world.
  17. loadKQ $1 @ 183000 95500 2000
  18. set Barren::Teleport::Name $ObjectName
  19.  
  20.  
  21. # Beam me out Scotty
  22. KQMonster::setState Connor Portal $Barren::Teleport::Name
  23.